Emacs: kill-region-or-backward-kill-word - 工夫と趣向と分別と。

以前、kill-region-or-backward-kill-wordというのを紹介したが、たとえばcua-modeではkill-regionに割り当てられたキーに上位互換のコマンド（cua-cut-region等）を割り当て直す、といったことをしているので、割り当ては変更せずにkill-regionの挙動を変えてしまう方が都合がいい。
というわけで、adviceを使って書き換えるとこうなる。

(defadvice kill-region
  (around kill-region-or-backward-kill-word (beg end) activate)
  (if (and (called-interactively-p 'any) (not mark-active))
      (backward-kill-word (prefix-numeric-value current-prefix-arg))
    ad-do-it))

(defadvice kill-region

(around kill-region-or-backward-kill-word (beg end) activate)

(if (and (called-interactively-p 'any) (not mark-active))

(backward-kill-word (prefix-numeric-value current-prefix-arg))

ad-do-it))

おまけで、選択モードでないときにM-wが現在行をコピーするようにするのがこれ。（プレフィックスにも対応）

(defadvice kill-ring-save
  (around kill-ring-save-or-copy-line-as-kill (beg end) activate)
  (interactive (list (point) (mark)))
  (if (and (called-interactively-p 'any) (not mark-active))
      (copy-region-as-kill (point-at-bol 1) (point-at-eol 2))
    ad-do-it))

(defadvice kill-ring-save

(around kill-ring-save-or-copy-line-as-kill (beg end) activate)

(interactive (list (point) (mark)))

(if (and (called-interactively-p 'any) (not mark-active))

(copy-region-as-kill (point-at-bol 1) (point-at-eol 2))

ad-do-it))

Emacsでイラつくことのひとつが行単位のコピー（viならY）の面倒さだが、こういう工夫で乗り越えよう。

「Emacs: kill-region-or-backward-kill-word」への19件のフィードバック

Ny weekly 2024年8月23日

Ny weekly I just like the helpful information you provide in your articles

返信 ↓

Internet Chicks 2024年8月29日

Internet Chicks I’m often to blogging and i really appreciate your content. The article has actually peaks my interest. I’m going to bookmark your web site and maintain checking for brand spanking new information.

返信 ↓

deneme bonusu veren siteler 2024年9月10日

deneme bonusu veren siteler

返信 ↓

SimplyÂ sseven 2024年9月13日

Simply Sseven Pretty! This has been a really wonderful post. Many thanks for providing these details.

返信 ↓

أنابيب النحاس الأصفر 2024年9月24日

أنابيب API 5L في العراق تم تصميم أنابيب API 5L في مصنع إيليت بايب لصناعة النفط والغاز، مما يوفر قوة وموثوقية فائقة للتطبيقات المطلوبة. تلتزم هذه الأنابيب بأعلى معايير الصناعة، مما يضمن أدائها الجيد في بيئات مختلفة. يفتخر مصنع إيليت بايب بكونه أحد أفضل وأعتمد المصانع في العراق، حيث يوفر أنابيب API 5L التي تدعم البنية التحتية الحيوية للطاقة. اكتشف عروض أنابيب API 5L لدينا على elitepipeiraq.com.

返信 ↓

Family Dollar 2024年10月1日

Family Dollar There is definately a lot to find out about this subject. I like all the points you made

返信 ↓

SocialMediaGirls 2024年10月15日

SocialMediaGirls This was beautiful Admin. Thank you for your reflections.

返信 ↓

Clochant 2024年11月7日

Clochant I really like reading through a post that can make men and women think. Also, thank you for allowing me to comment!

返信 ↓

детское порно 2024年11月15日

child porn watch

返信 ↓

truck scales in Najaf 2024年11月23日

شركة Bwer هي أحد الموردين الرئيسيين لموازين الشاحنات ذات الجسور في العراق، حيث تقدم مجموعة كاملة من الحلول لقياس حمولة المركبات بدقة. وتغطي خدماتها كل جانب من جوانب موازين الشاحنات، من تركيب وصيانة موازين الشاحنات إلى المعايرة والإصلاح. تقدم شركة Bwer موازين شاحنات تجارية وموازين شاحنات صناعية وأنظمة موازين جسور محورية، مصممة لتلبية متطلبات التطبيقات الثقيلة. تتضمن موازين الشاحنات الإلكترونية وموازين الشاحنات الرقمية من شركة Bwer تقنية متقدمة، مما يضمن قياسات دقيقة وموثوقة. تم تصميم موازين الشاحنات الثقيلة الخاصة بهم للبيئات الوعرة، مما يجعلها مناسبة للصناعات مثل الخدمات اللوجستية والزراعة والبناء. سواء كنت تبحث عن موازين شاحنات للبيع أو الإيجار أو التأجير، توفر شركة Bwer خيارات مرنة لتناسب احتياجاتك، بما في ذلك أجزاء موازين الشاحنات والملحقات والبرامج لتحسين الأداء. بصفتها شركة مصنعة موثوقة لموازين الشاحنات، تقدم شركة Bwer خدمات معايرة موازين الشاحنات المعتمدة، مما يضمن الامتثال لمعايير الصناعة. تشمل خدماتها فحص موازين الشاحنات والشهادات وخدمات الإصلاح، مما يدعم موثوقية أنظمة موازين الشاحنات الخاصة بك على المدى الطويل. بفضل فريق من الخبراء، تضمن شركة Bwer تركيب وصيانة موازين الشاحنات بسلاسة، مما يحافظ على سير عملياتك بسلاسة. لمزيد من المعلومات حول أسعار موازين الشاحنات، وتكاليف التركيب، أو لمعرفة المزيد عن مجموعة موازين الشاحنات ذات الجسور وغيرها من المنتجات، تفضل بزيارة موقع شركة Bwer على الإنترنت على bwerpipes.com

返信 ↓